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1 Introduction 

The strategy of left reduction (iteration of head reduction denoted by >-) has the following 
advantages : 

• It has good mathematical properties stated by the normalisation Theorem : if a A-term is 
normalizable, then we obtain the normal form by left reduction. 

• It seems more economic since we compute a A-term only when we need it. 

Now, a drawback of the strategy of left reduction (call by name) is the fact that the argument of 
a function is computed as many times as it is used. The purpose of storage operators is precisely 
to correct this drawback. 

Let F be a A-term (a function), and N the set of normal Church integers. During the computa- 
tion, by left reduction, of (F)9 n (where 6 n ~^ n), 9 n may be computed several times (as many 
times as F uses it). We would like to transform {F)0 n to (F)n. We also want this transformation 
depends only on 9 n (and not -F 1 ). In other words we look for some closed A-terms T with the 
following properties : 
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• For every F, n <G IN, and 9 n ~^ n, we have (T)9 n F y (F)n; 

• The computation time of the head reduction (T)O n F y (F)n depends only on 9 n . 

Therefore the first definition : A closed A-term T is called storage operator for N_ if and only if 
for every n € IN, and for every 6 n ~^ n, (T)9 n f y (/)ra (where / is a new variable). 
It is clear that a storage operator satisfies the required properties. Indeed, 

• Since we have (T)8 n f y (f)n, then the variable / never comes in head position during the 
reduction, and we may then replace / by any A-term. 

• The computation time of the head reduction (T)9 n F y (F)n depends only on 6 n . 

We showed (see [12]) that it is not possible to get the normal form of 6 n . We then change the 
definition : A closed A-term T is called storage operator for N_ if and only if for every n G IN, 
there is a closed A-term r„ ~£ n (for example r„ = (s) ra 0, where s is a A-term for the successor), 
such that for every 9 n 2^3 n, (T)6 n f y (f)r n (where / is a new variable). 

If we take T\ = Xn((n)XxXy(x)Xz(y)(s)z)Xf(f)0, and T 2 = XnXf(((n)XxXy(x)(s)y)f)0, then it 
is easy to check that : for every 6 n ~^ n, (Ti)0 n / >- (/)(s)"Q, and {T 2 )9 n f y (f)(s) n 0. Therefore 
Ti and T 2 are storage operators for N . 

The AF2 type system is a way of interpreting the proof rules for the second order intuitionistic 
logic plus equational reasoning as construction rules for terms. In this system we have the 
possibility to define the data types, the representation in A-calculus being automaticaly extracted 
from the logical definition of the data type. At the logical level the data type are defined by 
second order formulas expressing the usual iterative definition of the corresponding algebras of 
terms and the data receive the corresponding iterative definition in A-calulus. For example, the 
type of integers is the formula : N[x] = \/X{\/y[X(y) -» X(sy)} -» [X(0) -> X(x)}} {X is a 
unary predicate variable, is a constant symbol for zero, and s is a unary function symbol for 
successor). 

If we try to type a storage operator T in AF2 type system, we naturally find the type Vx{A^[x] — > 
[(A^[x] — > O) — > O]} (where O is a particular 0-ary predicate symbol which represents an 
arbitrary type). Indeed, if \~af2 t u : N[s n (0)], and / is of type iV[s n (0)] — > O, then / : 
A^[s n (0)] -» O \~ AF2 (/)t„ : O. It is natural to have (T)6 n f of type O. If h AF2 6 n : N[s n (0)}, 
then the type for T must be Mx{N[x] -> [(N[x] -> O) -> O]}. 
It is easy to check that h A F2 7i,T 2 : Vx{A^[x] -» [(iV[x] -> O) -> O]}. 

The type Vx{A^[x] — > [(A^[x] — >• O) — > O]} does not characterize the storage operators. Indeed, 
if we take T = XnXf(f)n, we obtain : 

• n : N[x], f : N[x] -> O h AF2 (/)n : O, then, h AF2 T : Vx{N[x] -> [(iV[x] -» O) -> O]}. 

• For every 6* n ~^ n, (T)6 n f y (f)0 n , therefore T is not a storage operator for iV. 
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This comes from the fact that the type Vx{iV[x] — > [(iV[x] — > O) — > O]} does not take into 
account the independance of r n with 9 n . To solve this problem, we must prevent the use of 
the first N[x] in Vx{iV[x] — ► [(-/V[x] — > O) — > O]} as well as his subtypes to prove the second. 
Therefore, we will replace the first N[x] by a new type N*[x] with the following properties : 

• ^AF2 n : N*[s n (0)] (for example, take N*[x] = VA{Vy[F(X, y) -» sy)] -> [F(X, 0) -> 

• If v : N*[x], Xi : Vy[F(G,y) -> F(G,8y)], yj : F(fT,o) h AF2 t : iV[a»(0)], then H AF2 f : 
7V[s™(0)], where t' is the normal form of t ; 

• There is a closed A-term T, such that h AF2 T : Vx{iV*[x] -» [(iV[x] -> O) -» O]}. 

A simple solution for the second property is to take a formula F(X, a) ending with a new 
constant symbol. Indeed, since N[x] does not contain this symbol, we cannot use the variables 
u,Xi,yj in the typing of t'. We suggest the following proposition : 

N*[x] = VX{\/yl(X(y) -> O) -> -> O)] -> [(X(0) -> O) - - O)]}. 

It is easy to chech that \~ A F2 T ± ,T 2 : Vx{iV*[x] -> [(AT[x] -> O) -> O]} (see [6] and [12]). 

For each formula i 7 of AF2, we indicate by F* the formula obtained by putting -> in front of 

each atomic formulas of F (F* is called the Gddel translation of F). 

J.L. Krivine has shown that the type Vx{A^*[x] — > -i-iiV[x]} characterize the storage opera- 
tors for TV (see [6]). But the A-term r n obtained may contain variables substituted by A-terms 
ui,...,u m depending on 9 n . Since the A-term r n is /3ry-equivalent to n, therefore, the left re- 
duction of the T n [ui/x±, u m /x m ] is equivalent to the left reduction of r„ and the A-terms 
ui, ...,u m will therefore never be evaluated during the reduction. 

Taking into account the above remarks, we modify again the definition : A closed A-term T is 
called a storage operator for TV if and only if for every n € IN, there is a A-term r ra c±g n, such 
that for every 9 n ^ n, there is a substitution a, such that (T)6 n f y (/)cr(r n ) (where / is a new 
variable) . 

The AF2 type system is satisfactory from an extensional point of view : one can construct 
programs for all the functions whose termination is provable in the second order Peano arith- 
metic. But from an intensional point of view the situation is very different : we cannot always 
obtain the simple (in term of time complexity, for instance) programs we need. For example 
we cannot find a A-term of type \/xVy{N[x], N[y] — > N[min(x, y)]} (min is a binary function 
symbol defined by equations) in AF2 type system that computes the minimum of two Church 
integers in time 0(min) 3 

3 R. David gives a A-term of type N,N —> N (N = \/X{[X -> X] -> [X -> X}}) in F type system that 
computes the minimum of two Church integers in time 0(min.Log(min)) . The notion of storage operators plays 
an important tool in this constraction (see [2]). 
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The TTR type system is an extension of AF2 based on recursive definitions of types, which 
is intented to solve the basic problems of efficiency mentioned before. In TTR we have a log- 
ical operator fj, of least fixed point. If A is a formula, C an n-ary predicate symbol which 
appears and occurs positively in A, x±,...,x n first order variables, and t\,...,t n terms, then 
fiCxi...x n A < ti,..,t n > is a formula called the least fixed point of A in C calculated over 
the terms t±,...,t n . The interded logical meaning of the formula [iCx\...x n A < ti,..,t n > is 
K(ti, ...,t n ), where K is the least X, such that X{x\, ...,x n ) « — > A. TTR allows to define the 
multisorted term algebras as least fixed points. For example the type of recursive integers is 
the formula : N r [x] = i iCz\iX{iy[C{y) -» X{sy)\ -> [X(0) -> X(z)]}] < x > {X is a unary 
predicate variable, is a constant symbol for zero, and s is a unary function symbol for successor). 

In this paper we study the types D of TTR, and the transformations *, for which we have the 
following result : if \~ttr T : D*^ then for every A-term t with \~ttr t : D, there are 

A-terms r< and r[ such that Tt 2±g t[, \~ttr t[ : D, and for every 9t—pt, there is a substitution 
a, such that (T)O t f >- (f)a(T t ) (where / is a new variable). 
We prove 4 that, to obtain this result, it suffies to assume that : 

• The universal second order quantifier appears positively in D (V-positive type) 5 . 

• The transformation * satisfies the following properties : 

- If A = C(ti, t n ), then A*= A ; 

- If A = X(ti,...,t n ), then A*= F x [h/xi, t n /x n ] < X 1 ,...,X r > where F x is a 
formula ending with _L and having x\, x n , X\, X r as free variables ; 

- (A -» B)*= A*^ B* ; 

- (yxA)*= VxA*. 

- (VXA)*=VX 1 ...X r A*. 

- ([iCx 1 ...x n A < h, .., t n >)*= (iCx 1 ...x n A*< h, .., t n >. 

We give the proof of this result in the case of the type of recurcive integers. 

2 Basic notions of pure A-calculus 

Our notation is standard (see [1] and [5]). 

We denote by A the set of terms of pure A-calculus, also called A-terms. 

Let t,u,ui, ...,u n € A, the application of t to u is denoted by (t)u. In the same way we write 

4 J.L. Krivine and the author proved independely the same result for AF2 type system (see [7] and [12]). 
5 This types were studied by some authors (in particular R. Labib-Sami), and have remarkable properties (see 
[8])- 
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{t)u\...u n instead of (...({t)ui)...)u n . 

The /3-reduction (resp. /3-equivalence) is denoted by t u (resp. t ~^ u). 
The set of free variables of a A-term t is denoted by Fv(t). 

The notation t[ui/xi, u n /x n ] represents the result of the simultaneous substitution of A-terms 
ui, ...,u n to the free variables x\, ...,x n of t (after a suitable renaming of the bounded variables 
of t). 

With each normal A-term, we associate a set of A-terms STE(t) by induction : 
if t = \x l ...\x n {y)ti...t m , then STE{t) = {t} [j (J STE(U). 

l<i<m 

Let us recall that a A-term t either has a head redex [i.e. t = Xxi...Xx n (Xxu)vv\...v m , the head 
redex being (Xxu)v], or is in head normal form [i.e. t = Xxi...Xx n (x)vvi...v m ]. 
The notation t y t' means that t' is obtained from t by some head reductions, and we denote 
by n(t,t'), the number of steps to go from t to t' . 

A A-term t is said to be solvable if and only if the head reduction of t terminates. 
We define an equivalence relation ~ on A by : u ~ v if and only if there is a t, such that u y t, 
and v y t. In particular, if v is in head normal form, then u ~ v means that v is the head 
normal form of u. 

Theorem 2.1 ([6]). Ifty t' , then for every u\, ...,u n G A : 

1) there is av € A, such that (t)u\...u n >- v, (t')u\...u n >- v, andn((t)ui...u n ,v) = n((t')ui....u n ,v)+ 
n(t,t'). 

2) t[u 1 /x 1 ,...,u n /x n ] y t'[u 1 /x 1 ,...,u n /x n ], and n(t[u 1 /x 1 ,...,u n /x n ],t'[u 1 /x 1 ,...,u n /x n ]) = 
n(t,t'). 

Remark. Theorem 2.1 shows that to make the head reduction of {t)u\...u n (resp. t[u\/x\, u n /x n }), 
it is equivalent (same result, and same number of steps) to make some steps in the head reduction 
of t, and then make the head reduction of (t')u\...u n (resp. t'[u\/x\, u n /x n ]). 

3 Basic notions of typed A-calculus 

3.1 The AF2 type system 

The types will be formulas of second order predicate logic over a given language. 
The logical symbols are _L (for absurd), — > and V (and no other ones). 

There are individual variables : x,y,... (also called first order variables) and n-ary predicate 
variables (n = 0, 1, ...) : X,Y, ... (also called second order variables). 
The terms and the formulas are up in the usual way. 

The formula F x -> (F 2 -> (... -> (F n G)...)) is denoted by F 1 ,F 2 ,...,F n G, and F is 
denoted by ^F. The formula ^vi...\/v n F is denoted by Vvi 7 , and the sentence "v is not free in 
A" means that for all 1 < i < n, Vi is not free in A. 
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If A is a unary predicate variable, t and t' two terms, then the formula VA[At — > Xt'\ is 
denoted by t = t', and is said to be equation. A particular case of t = t' is a formula of 
the forme t[iti/xi, u n /x n ] = t'[ui/x\, u n /x n ] or t'[ui/x 1 , u n /x n ] = t[ui/xi, u n /x n ], 
ui, ...jUn being terms of the language. 
After, we denote by E a system of function equations. 

A context T is a set of the form x\ : Ai, ...,x n : A n where distinct variables and 

Ai, A n are formulas. 

We are going to describe a system of typed A-calculus called second order functional arithmetic 
(shortened in AF2 for Arithmetique Fonctionnelle du seconde ordre). The rules of typing are 
the following : 

(1) T,x : A \~AF2 x : A. 

(2) If T, x : B \~AF2 t : C, then F \- AF2 Xxt : B — > C. 

(3) If T \~ AF2 u:B -> C, and V \~ AF2 v : B, then T \- AF2 (u)v : C. 

(4) If T \~AF2 t : A, and x does not appear in T, then T \~af2 t : VxA. 

(5) If T h^i?2 i : VxA, then, for every term u, T \- A F2 t : 

(6) If T h^F2 i : ^4, and A does not appear in T, then T \~AF2 t : VXA. 

(7) If r \~AF2 t : VXA, then, for every formula G, F h AF2 t : A[G/X( Xl , x n )} (*) 

(8) If T \~AF2 t : A[u/x], then F \~af2 t : ^4[w/x], u = v being a particular case of an 
equation of E . 

(*) A[G/X(xi, ...,x n )] is obtained by replacing in A each atomic formula X(t\, ...,t n ) by 
G[ti/xi, ...,t n /x n ]. To simplify, we write sometimes A[G/X] instead of A[G/X(xi, ...,x n )]. 

Whenever we obtain the typing F \~af2 t : A by means of these rules, we say that "the A-term 
t is of type A in the context F, with respect to the equation of E ". 

Theorem 3.1 ([5], [9]). 

1) Conservation Theorem: IfF \~af2 t : A, and t -^>p t' , then F \- A F2 t' : A. 

2) Strong normalization: IfF \~af2 t : A, then t is strongly normalizable. 

3.2 The TTR type system 

Let A be a predicate variable or predicate symbol, and A a type of AF2. 

We define the notions "A is positive in A" and "A is negative in A" by induction : 

- If A does not appears in A, then A is positive and negative in A ; 
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- If A = X(ti, t n ), then X is positive in A, and X is not negative in A ; 

- If A = B — > C, then X is positive (resp. negative) in A if and only if X is negative (resp. 
positive) in B, and X is positive (resp. negative) in C ; 

- If A = VvB, and « / I, then X is positive (resp. negative) in A if and only if X is 
positive (resp. negative) in B. 

We add to the second order predicate calculus a new logic symbol fj,, and we allow a new con- 
struction for formulas : if A is a formula, C an n-ary predicate symbol which appears positively 
in A, xi,...,x n first order variables, and t\,...,t n terms, then ^iCx\...x n A < ti,...,t n > is a 
formula called the least fixed point of A in C calculated over the terms ti,...,t n . 
We extend the notions "X is positive in a type" and "X is negative in a type" by the following 
way : X is positive (resp. negative) in [iCx\...x n A < ti,...,t n > if and only if X is positive 
(resp. negative) in A. 

We extend the definition of the substitution by assuming that C, bounded in the 

formula fiCx±...x n A < t±, t n >. 

We define on these formulas a binary relation C by : A C B if and only if it is obtained by using 
the following rules : 

(ax) A C A H)lT" 



S C A -> B< 



(//d) D[//Ca;i...a; m D < zi,...,z m > /C(zi, z m )][*i/ x i> t m /a; m ] C nCx\...x m D < h,...,t m > 



(fj,' g ) nCxi_...x m D < ti,...,t m >C D[nCx!...x m D < zi,...,z m > /C(z 1 ,...,z m )][t 1 /x 1 ,...,t m /x m \ 

, , D[£/C(a;i,...,s m )] CE 

3 nCx 1 ...x m D < ti, ...,t m >C E^i/xi, ...,i m /x m ] 

(1) G is a formula if v is a second order variable, and a term if u is a first order variable. 

(2) v is not free in A. 

(3) v = w is a particular case of an equation of E . 

(Hd) and (/j,' ) are the rules of factorisation and development of a fixed point. 
(fig) expresses the fact that \iCx\...x m D < ti, ...,t m > is a least fixed point. 
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We are going to describe a system of typed A-calculus called theory of recursive types (shortened 
in TTR for Theorie des Types Recursifs) where the types are formulas of language. The rules 
of typing are the following : 

- The typing rules (1),...,(8) of AF2 type system. 
, x r \~ttr t: A AC B 

- (Q — — = — 

r \~TTR t : B 

_ {Y) r h TTfi t : Vxi...Va; m [C(gi, ...,x m ) -> E] -> ^ Xl ..Nx m [D -> gj 

r (y)t : yx 1 ...Vx m {[iCxi...x m D < xi,...,x m >^ E] 

where C is not free in E and G, and Y is the Turing's fixed point. 

The rule (Y) expresses also the fact that \iCx\...x m D < t±, ...,t m > is a least fixed point. 
Theorem 3.2 ([12], [18]). 

1) Conservation Theorem IfT \~ttr t ■ A, and t -^p t' , then T \~ttr t' : A. 

2) Strong normalization IfT \~ttr t ■ A without using the rule (Y), then t is strongly normaliz- 
able. 

3) Weak normalization If T \~ttr t : A, and if all least fixed points of A are positives, then t is 
normalizable. 

The TTR type system is the subsystem of TTR where we only have propositional variables 
and constants (predicate variables or predicate symbols are of arity 0). So, first order variables, 
function symbols, and finite sets of equations are useless. With each predicate variable (resp. 
predicate symbol) X, we associate a predicate variable (resp. a predicate symbol) X° of TTR° 
type system. For every formula A of TTR, we define the formula A° of TTR obtained by 
forgetting in A the first order part. If V = x\ : A\,...,x n : A n is a context of TTR, then we 
denote by T°, the context x 1 : A\, ...,x n : A° of TTR°. We write V \~ttr° t : A if t is tyable in 
TTR° of type A in the context T. 

Theorem 3.3 IfT h TTR t : A, then T° h TTR « t : A°. 

Proof By induction on the length of the derivation T \~ttr t : A. □ 

Theorem 3.4 

1) Conservation Theorem IfT ^ttr° t : A, and t -^p t' , then T "tttr* t' : A. 

2) Strong normalization IfT \~ttr* t : A without using the rule (Y), then t is strongly normal- 
izable. 

3) Weak normalization If T \~ttr° t : A, and if all least fixed points of A are positives, then t is 
normalizable. 
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Proof We use Theorems 3.2 and 3.3. □ 

Remark We cannot if the reverse of 2)-Theorem 3.2 is true, but the A-term 
t = \x(\y{{x){y)\xx){y)\x\yx)\x{x)x (which is strongly normalizable, and untypable in AF2 
type system (see [3])) is typable in TTR type system. Indeed, if we take B = fiC(VXX — > C), 
we check easily that \-ttr° t : [B — > (B — > 5)] — > i?. 

4 Properties of TTR type system 
4.1 Permutations Lemmas 

Lemma 4.1 XYie typing rules (5), (7), and (8) are admissible. 

2) In the typing, we may replace the succession of n times (C) and m times (4) (resp. (6)), by 
the succession of m times (4) (resp. (6)) and n times (C.). 

3) If T \~ttr t : B is derived from V \~ttr t : A, then we may assume that we begin by the 
applications of (4), (6), and next by (C). 

Proof Easy. □ 

Lemma 4.2 1) If A C B, then, for every sequence of terms and/ or formulas G, A[G/v] C 
B[G/v], and we use the same proof rules. 

2) If T hxTR t : A, then, for every sequence of terms and/ or formulas G, T[G/v] \~ttr t : 
A[G/v], and we use the same typing rules. 

Proof By induction on the length of the derivation A C B (resp. T \~ttr t : A). □ 

Corollary 4.1 IfT,x:A ^ttr {x)u\...u n : B, then : 

n = 0, and there is vo not free in A and T, such that Vvo^4 C B, 

or 

n > 1, and there are types Ci,Bi {i = 1, ...,n) and v;(z = l,n) not free in A and V, such that 
Vv A C d -» B 1; Vv^ C C i+ i -» Bi+i 1 < i < n - I, Vv n £ n C B, and F,x : A \~ttr «i : Q 
\<i<n. 

Proof By induction on n. □ 

Lemma 4.3 1) If X is positive (resp. negative) in D, and A C B, then D[A/X] C D[B/X] 

(resp. D[B/X] C D[A/X]). 

2) We may eliminate the rule (fi' g ). 

Proof 1) By induction on D. 

2) By rule (fi d ), we have A[fj,Cx 1 ...x n A < y 1 , ...,y n > /C(yi, ...,y n )] Q (J-Cx 1 ...x n A < x 1 , ...,x n >, 
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then, by 1), A[A[fiCx 1 ...x n A < y 1 ,...,y n > /C(y 1 , y n )]/C(x 1 , x n )] C A[/j,Cx 1 ...x n A < 
xi,...,x n > /C(xi, x n )], and, by using the rule (n g ), we obtain [xCx\...x n A < ti,...,t n >C 
A[/j,Cx 1 ...x n A < ...,y n > /C(y u ...,y n )][t 1 /x 1 , ...,t n /x n }. □ 

4.2 Without-arrow types and arrow types 
Definitions 

1) A type A is said to be without-arrow type if and only if A does not contain any arrow. 

2) Each without-arrow type A contains a unique atomic formula X(t\, ...,t n ). We denote X by 
At(A). We distinguish between two kinds of without-arrow types : 

- A without-arrow type A is said to be of kind 1 if and only if At(A) is free in A. 

- A without-arrow type A is said to be of kind 2 if and only if At(A) is bounded in A. 

Lemma 4.4 1) If A is a without- arrow type of kind 1, and AQ B, then B is a without-arrow 
type of kind 1, and At(A) = At(B). 

2) If A is a without-arrow type of kind 2, then, for every type B, we have A C B. 

Proof 1) By induction on the length of the derivation A C B. 
2) Easy □ 

Definition A type A is said to be arrow type if and only if A contains at least an arrow. 
Lemma 4.5 If A is an arrow type, and A C B, then B is an arrow type. 
Proof By induction on the length of the derivation A C B. □ 

Corollary 4.2 Let A be an atomic formula. IfT ^ttr t : A, then t does not begin by A. Other 
words, ifT \~ttr ^xu : B, then B is an arrow type. 

Proof If t begins by A, then there are E, F, and v, such that Vv(£ l — ► F) C A, therefore, by 
Lemma 4.5, A is an arrow type. □ 

Definition For every arrow type A, we define the type Rep(A) as follows, by induction on A : 

- Rep(E -» F) = E -> F ; 

- Rep(\fvB) = \/vRep{B) ; 

- Rep(fiCxi...x n B < ti, t n >) = 

Rep(B)[fiCx 1 ...x n B < yi,...,y„ > /C(y 1 ,..,y n )]\bi/x 1 ,...,t n /x n \. 

Lemma 4.6 If A is an arrow type, then : 

1) there are G, D and v such that Rep(A) = Vv(G — > D). 

2) AC Rep(A), and Rep(A) C A. 
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Proof By induction on A. □ 

Remark. The Lemma 4.6 means that if A is an arrow type, then Rep(A) is an "equivalent" 
type to A of the form Vv(G — ► D). In the rest of the paper, we denoted G by A g and D by A d . 

Lemma 4.7 Let A,B be two types, andX,X' two predicate variables or predicate symbols, such 
that X' is not free in A. 

1) If X is positive in A, and X' is positive in B, then X' is positive in A[B/X]. 

2) If X is positive in A, and X' is negative in B, then X' is negative in A[B/X]. 

3) If X is negative in A, and X' is positive in B, then X' is negative in A[B/X\. 

4) If X is negative in A, and X' is negative in B, then X' is positive in A[B/X}. 

Proof By induction on A. □ 
Lemma 4.8 Let A be an arrow type. 

1) If X is positive (resp. negative) in A, then X is positive (resp. negative) in Rep(A). 

2) If G is a sequence of terms and/ or formulas, then Rep(A[G/v]) = Rep(A)[G/v]. 

Proof 1) We argue by induction on A. The only non-trivial case is the one where A = 
fxCx±...x n B < t\,...,t n >. If X is positive (resp. negative) in A, then X is positive (resp. 
negative) in B. By the induction hypothesis, we have X is positive (resp. negative) in Rep(B), 
therefore, by Lemma 4.7, X is positive (resp. negative) in Rep(A). 
2) By induction on A. □ 

Theorem 4.1 Let A, B be two arrow types, such that Rep(A) = Vv(yl s — > Ad) and Rep(B) = 
Vv'(B g — > B d ). If A C B, then there is a sequence of terms and/or formulas G, such that 
B g C A g [G/\], and A d [G/v] C B d . 

Proof We argue by induction on the length of the derivation A C B. Let us look at the rule 
used in the last step. The only non-trivial cases are : 

- (tr) : then AC D, and D C B. If Rep(D) = Vv" (D g -> D d ), by the induction hypothesis, 
there are sequences G and G" such that D g C A g [G/v], A d [G/v]C D d , B g C D fl [G"/v"], 
and D d [G" /v"]C B d . It is clear that we may assume that v" is not free in A g and A d , 
therefore, by Lemma 4.2, we have B g C A fl [G/v][G"/v"], and A d [G/v][G"/v"]C B d . Let 
G' = G[G"/v"], then B g C A fl [G'/v], and A d [G' /v]C B d . 

- (Pd) ■ then A = D[nCxi...x k D < yi,...,y k > /C(y 1 ,...,y k )]\t 1 /xi,..,t k /x k ], and B = 
fj,Cxi...x k D < ti,...,t k >. Therefore, by Lemma 4.8, Rep(A) = Rep(B), A g = B g , and 
B d = A d , and so B g C A g , and A d C B d . 
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- (fig) : then A = fiCx 1 ...x k D < t±, ...,t k >, B = E[t 1 /x 1 , ...,t k /x k ], and D[E/C(x 1 , ...,x k )] C 
F. Therefore Rep(D) = Vv(L> 9 -> D d ) with 

D g [fiCxi...x k D < y!,...,y k > /C(y 1 ,...,y k )][t 1 /x 1 ,..,t k /x k ] = A g , 

D d [fiCx 1 ...x k D < yi,...,y k > /C(y 1 ,...,y k )][t l /xi,..,t k /x k ] = A d , and 

Rep(E) = Vv'(F 9 -> E d ) with F g [ti/xi, ...,t k /x k ] = Bg, F d [ii/xi, ...,t k /x k ] = B d . 

By the induction hypothesis, there is a sequence G, such that E g C D g [E/C(xi, Xfc)][G/v] 

, and F" d [F/C(xi, Xfc)][G/v]C F d . C is positive in D, therefore, by Lemma 4.8, C is 

negative in D g , and C is positive in D d . 

D[E/C(x 1 , ...,x k )] C F, then fiCx 1 ...x k D < y ± , ...,y k >C E[yi/xi, ...,y k /x k ], and, by 1)- 
Lemma 4.3, Fy C Dg[fiCx 1 ...x k D < y ± , ...,y k > /C(y 1 , ...,y k )][G/v] , and 
D d [fiCx!...x k D < yi, ...,y fc > /C(yi, ...,y fe )][G/v]C F d , and so, by Lemma 4.2, 
F 9 [ii/xi,...,£ fe /x fe ] C D g [fiCxi...x k D < yi,...,y k > /C(yi,...,y k )][G/\][t 1 /x 1 ,...,t k /x k ], 
and D d [fiCxi...x k D < y ± , ...,y k > /C(yi, ...,y fc )][G/v][ii/xi, ...,t„/x n ] C F d [ii/xi, ...,t fe /x fc ]. 
Let G' = G[ti/xi,...,tfe/x fc ], then F s C A fl [G'/v],and A d [G'/v]C B d . □ 

Corollary 4.3 Lei B be an atomic formula. IfT,x:A—>B ^ttr (x)u±...u n : C, then n = 1, 
and T,x : A —> B 'tttr ui ■ A 

Proof By Corollary 4.1, we have Vv(A -» B) C F -»• G, T, x : A -► 5 h TTi? Ul : F, and v is 
not free in V and A — > F. Therefore, by Theorem 4.1, F C A, and B C G, then r,x : A — > 
F I~tt_r ui : A If n > 1, then Vv'G C H — > J, and v' is not free in T and A ^ B. Therefore 
Vv'F C F — > J, and Vv'F is a without-arrow type of kind 1. A contradiction. □ 

Lemma 4.9 // Xi : Ai,...,x n : A n \~ttr t : A, Bi C Ai 1 < i < n, and A Q B, then 
x\ : Bi, x n : B n \~ttr t : B. 

Proof We argue by induction on t. The only non-trivial cases are : 

- If t = Xxu, then xi : A±, ...,x n : A n ,x : E \~ttr u '■ F, Vv(F — ► F) C A, and v is not 
free in E and Aj 1 < j < n. We may assume that v is not free in E and Bj 1 < j > < n. 
By the induction hypothesis, we have xi : Bi,...,x n : B n ,x : E \~ttr u : F, and so 
xi : Bi, x n : B n \~ttr t : B. 

- If t = (Y)u, then VvVyi...Vy m [/xCyi...y m F < yi,...,y m >—> D]) C A, xi : Ai,...,x n : 
Ai \~ttr u : Vyi...Vy m [C(yi, ...,y m ) -»■ £>] -> Vyi...Vy m [F -> D], C is positive in F, C 
is not free in F, and v is not free in Aj 1 < j < n. We may assume that v, C are not 
free in Bj 1 < j < n. By the induction hypothesis, we have xi : B\, ...,x n : B n \~ttr u : 
Vyi..Vy m [C(yi, ...,y m ) -> F] -> Vyi...Vy m [F -> D], and so xi : Si, ...,x n : F n h TT/? : 
A □ 
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5 V- positive types 

5.1 Properties of V-positive types 

Definition We define two sets of types, the set Sl + of V-positive types, and the set Q~ of 
V-negative types in the following way : 

- If A is an atomic type, then A G ft + , and A E ft~ ; 

- If T+ € fi+ and T~ G Q~, then, T~ -> T+ G fi+ and T+ -» T~ G ft - ; 

- If T+ € then VxT+ G 0+ ; 

- If T+ € then \/XT + G VL + ; 

- If T- G then VxT~ G fT ; 

- If T" G fT , and X is not free in T~, then VXT~ G fT- ; 

- If T + G xi, ...,x n first order variables, ti, ...,i„ terms, C an n-ary predicate symbol 
which appears and is positive in T + , then [iCx\...x n T + < t±, ...,t n >G 

Remarks 

1) A least fixed point is not a V-negative type. 

2) If T + G then all least fixed points of T + are positives. Therefore, by 3)-Theorem 3.2, if 
r \~ttr t ■ T + , then t is normalizable. 

Lemma 5.1 Let T~,T'~ G T + ,T /+ G and X a predicate variable or predicate symbol. 

1) If X is positive (resp. negative) inT~ , then T~[T'~ /X] G (resp. T~[T' + /X] G 

2) If X is positive (resp. negative) in T+ , then T + [T ,+ /X) G Q + (resp. T+[T'-/X] G Q+). 

3) IfT[F/X] G n+ (resp. T[F/X] G Q~), then T G Q+ (resp. T G 

Proof 1), 2) By induction on T~ and T + . 
3) By induction on T. □ 

Definition With each type T of TTR, we associte the set Fv2(T) of free predicate variables 
and free predicate symbols of T. 

Theorem 5.1 Let T~ G Q~ , and T+ G 0+. 

1) IfT~ C A, t/ien 4 G 0", and Ft; 2 (v4) C Ft^(T _ ). 

2) IfBC T+, then B G fi+, and Fn 2 (£) C Fv 2 (T + ). 

Proof We argue by induction on the length of the derivations T~ C A, and B C T + . Let us 
look at the rule used in the last step. 
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1) The only non-trivial case is (fid)- 

Then T~ = T'\ixCxx...x n T' < y 1 , ...,y n > /C(yi, ...,y n )][h/xi, ...,t n /x n ], and 
A = ixCx\...x n T' < ti, ..,t n >. Since T~ G £l~ , then, by Lemma 5.1, fiCx\...x n T' < yi, ...,y n >G 
which is impossible. 

2) The only non-trivial cases are : 

- (fj, d ) : then B = D\pCx 1 ...x n D < y u ...,y n > /C(yi, ...,y n )][h/xi, ...,t n /x n ], and T+ = 
fj,Cxi...x n D < t±,...,t n >. Since T G Q + , then D G f2 + , and so, by Lemma 5.1, B G 
and Fv 2 (B) = Fv 2 (D) - {C} = Fv 2 (T + ). 

- (fig) : then B = fiCx\...x n D < ti, ...,t n >, T + = E[ti/x 1 , ...,t n /x n ], and D[E/C(x 1 , ...,x n )] C 
E. Since T + G then E G fi" 1 ", and, by the induction hypothesis, D[E/C(x\, ...,x n )] € 
r2 + , and Fv2(D[E/C(xi, ...,x n )]) C Fv 2 (E). By Lemma 5.1, we have D G and 
Fv 2 (D) - {C} C Fw 2 (L>[£/C(xi,...,x n )]) C Fu 2 (£), and so 5 G and Fv 2 (B) = 
Fv 2 {D)-{C} CFv 2 (D[E/C(x u ...,x n )}) Q Fv 2 (E) = Fv 2 (T+). □ 

5.2 The TTR type system 

We define on the types of TTR a binary relation C by the following way : 

A C B if and only if A C B, and in the proof we use only the weak version of (Vi g ) : 

N . , A[G/v] C g 
lVfloj V»AC B 

where G is a term if v is an individual variable, and G is a predicate variable or a predicate 
symbol having the same arity of v if v is a predicate variable. 

Lemma 5.2 If A C £?, i/ten, /or every sequence of terms and/ or formulas G , A[G/v] C 
5[G/v], and we use the same proof rules. 

Proof Same proof as 1)-Lemma 4.2. □ 

Lemma 5.3 Let A be an arrow type, and Rep(A) = \/v(A g — ► Ad). 

1) If Ae 0" (resp. A G then A g G and A d G 0" (Vesp. A 3 G Q~ , and A d G 

2) A C i?ep(A), and Rep(A) C A. 

Proof By induction on A. □ 

Lemma 5.4 IfT~ G^,T+efi + , and T~ C T+ ; tften X 1- C T+. 
Proof By induction on the length of the derivation T~ C T + . □ 

Definition We denote by TTR , the TTR type system whithout the rules (5), (7), (8) and by 
replacing the rule (C) by : 
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fr . v r h TTRo t:A AC B 

Theorem 5.2 Zei Ai,...,A n G £l~ , T = x± : Ai,...,x n : A n , A G £l + , and t a normal X-term. 
If T \~ttr t : A, then T \~ttRq t '■ A, and in this typing each variable is assigned of a V -negative 
type, and each u G STE{t) is typable of a ^-positive type. 

Proof We argue by induction on t. 

-lft = Xil<i<n, then VvAj C A, and v is not free in T. Since Ai G , then 
VvAj G and, by Lemma 5.4, WAj C A. Therefore T \~ttr t : A. 

- If t = Xxu, then T,x : B \~ttr u '■ C, Vv(B — > C) C A, and v is not free in T. Since 
Vv(B — ► C) is an arrow type, then, by Lemma 4.5, A is an arrow type. If Rep(A) = 
Vv'(A g — > then, by 1)-Lemma 5.3, A g G and A d G fi + . By Theorem 4.1, 
there is a sequence G, such that A g C B[G/v] , and C[G/v]C ^4 d . By 2)-Lemma 4.2, 
we have T,x : B[G/v]\~ttr u : C[G/c] , and, by Lemma 4.9, T,x : A 9 I~tt_r m : Az- 
By the induction hypothesis, we have T,x : A g ^ttr u : A^and so, by 2)-Lemma 5.3, 
r \~TTR t : A. 

- If t = (xi)u\...Uk 1 < i < n and k ^ 0, then WoA; C Ci — > Bi, WjBj C Cj+i — ► Bj + \ 
1 < j < — 1 , Vvk-Bfc C A where vo, v k are not free in T, and V \~ttr Uj '■ Cj 1 < j < k. 
By Theorems 4.1, 5.1, and Lemmas 4.4, 5.4, we have 

- Ai = W 4, A\ = C{ -> VviBi, B, = q +1 -> Vvj +1 B^. +1 1 < j < fc - 1, Cj G 
and VvjBj G Sl~ 1 < j < k. 

- C,- C Cj[G /v( ) ]...[G j _ 1 /vj_ 1 ] , VcjB<[G /v' ]...[G j _ 1 /vJ_ 1 ] C Bj 1 < j < fc, and 
Vv k Vv^[GoK]...[G k _ 1 K_ 1 ]C A. 

Since T h TTR uj : Cj 1 < j < k, then T \- TTR Uj : Cj[G /v( ) ]...[Gj_i/vj_ 1 ], and, by 
the induction hypothesis, T \~ttr u j '■ Cj[Go/vo]...[Gj_i/Vj_ 1 ]. It is easy to check that 
T h TTRo t : B£[G K]...[G k _ 1 /v k _ 1 ], then 

r h TTi?0 t : Vv k Vv k B£[G /v( ) ]...[G k _ 1 /v k _ 1 ], and T h TTi?0 t : A. □ 

6 Godel transformation 

6.1 _L-types of TTR 

Definition Let A be a type of TTR. We say that A is an _L-type if and only if A is obtained 
by the following rules : 

- _L is an _L-type. 
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- If A is an _L-type, then B — > A is an _L-type for every type B. 

- If A is an _L-type, then Vi> A is an _L-type for every variable v. 

- If A is an ±-type, C an n-ary predicate symbol which appears and is positive in A, 
x±,...,x n first order variables, and ti,...,t n terms, then ^iCx\...x n A < t±,...,t n > is an 
-L-type. 

Lemma 6.1 If A is an L-type, and A C B, then B is an L-type. 
Proof By induction on the length of the derivation A C B. □ 

Lemma 6.2 Let t be a normal X-term, A±, A n € Q~ , A € + , _L does not appear in the types 
A 1 ,...,A n ,A, and B x ,...,B m are L-types. IfT = x 1 : Ai,...,x n : A n ,y\ : B 1 ,...,y m : B m \~ttr 
t : A, then x\ : A\, x n : A n \~ttr t ■ A. 

Proof We argue by induction on t. 

- If t is a variable, then t = Xil<i<n or t = yi 1 < i < m. 

— The case t = X{ is trivial. 

— If t = yi, then VvSj C A and v is not free in T. Since Bi is an _L-type, then, by 
Lemma 6.1, A is an _L-type, and _L appears in A. A contradictoire. 

- If t = Xx n+1 t', then T,x n+ i : A n+1 \~ttr t' : D, Vv(A n+ i ->■ D) C A, v is not 
free in T. Since A £ then, by Theorem 5.1, we have A n+ \ € Q~ , D £ £l + , and 
F^2(Vv(yl ri+ i — > D)) C Fv2(A). Therefore _L does not appear in A n+ \ and D. By 
the induction hypothesis, we have x\ : Ai,...,x n : A n ,x n+ \ : A n+ \ ^ttr t : D, and so 
x\ : Ai, ...,x n : A n \~ttr t : A. 

- If t = (x)u\...Uk k > 1, then two case can be see : 

— If x = yi 1 < % < m, then, by Corollary 4.1, we have Vvo-Bj C C\ — > Z?i, Vvj-Dj C 
Cj + i — > .Dj+i 1 < i < fe — 1, VvkDfe C A, where vo, Vk are not free in yl and 
r, and r \~ttr Uj ■ Cj 1 < j < k. Since -Bj is an _L-type, then, by Lemma 6.1, Dj 
1 < J < and ^4 are _L-types, and _L appears in A. A contradictoire. 

— If x = Xi 1 < i < n, then, by Corollary 4.1, we have VvoAj C C\ — ► \/vjDj C 
Cj+i — > -Dj+i 1 < j < A; — 1, Vvk-Dfc ^ ^4> where vo,...,Vk are not free in A and 
r, and r \~ttr u j '■ Cj 1 < i < A. Since A, £ then, by Theorem 5.1, we have 
Cj € A G 1 < j < fc, and Fv2(Cj) [j Fv 2 {D j ) C Fv 2 (A;) 1 < j < fc. 
Therefore _L does not appear in Cj 1 < j < k. By the inductive hypothesis, we have 
xi : Ai, ...,x n : A n \~ttr Uj ■ Cj 1 < j < k, and so x\ : A 1 , ...,x n : A n \~ttr t : A. U 
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6.2 Godel transformations 

Definition With each predicate variable X, we associate a finite no empty set of predicate 
variables Vx = {X±, ...,X r } having the same arity of X, such that : if X ^ Y, then Vx f] Vy = 0- 
With each n-ary predicate variable X, and with each sequence of individual variables x±, x n , 
we assosiate a formula Fx such that : 

- Fx is an _L-type ; 

- Fx does not contain any predicate symbol ; 

- the free variables of Fx are among xi,...,x n and the elements of Vx- 
For each formula A, we define the formula A* by the following induction way : 

- If A = C(ti, t n ), and C is a predicate symbol, then A*=A. 

- If A = X(t\, ...,t n ), and X is a predicate variable, then A*=Fx[ti/xi, ...,t n /xi]. 

- If A = B -»• C, then A*=B*^ C*. 

- If A = \/xB, then A*=\jxB*. 

- If A = VXB, then A*=VXi„.VX r 5*, where Fx = {Xl, ...,X r }. 

- If A = [iCx\...x n D < t±, t n >, then A*=iiCx\...x n D*< ti, ...,t n >. 
A* is called the Godel transformation of A. 

Remark. In order to show that the above transformation is well defined, we need to prove the 
following Lemma : 

Lemma 6.3 Let C be a predicate variable or a predicate symbol, and A a type ofTTR. If C is 
positive in A (resp. negative in A), then C is positive in A* (resp. negative in A*). 

Proof By induction on A. □ 

Lemma 6.4 1) If A C B, then A* C B *, and we use the same proof rules. 
2) IfT \~TTR t : A, then V*\-ttr t: A*, and we use the same typing rules. 

Proof By induction on the length of the derivation A C B (resp. T \~ttr t : A). □ 

Corollary 6.1 Let D G and t a normal X-term. If \~ttr t : D, then \~ttr t : D*. 

Proof By induction on the length of the derivation \~ttr t : D, and we use Theorem 5.2 and 
Lemma 6.4. □ 



17 



7 Storage operators 



7.1 Definition of storage operators 
Definitions 

1) Let T be a closed A-term, and D,E two closed types of TTR (resp. TTR°). We say 
that T is a storage operator for the pair of types (D,E) if and only if for every A-term t 
with \~ttr t : D (resp. ^ttro t : D), there are A-terms n and t[ such that r* ~^ r/, 
h TTi? r/ : £ (resp. h TTi? o r/ : £), and for every 9 t ~p t, (T)6 t f >- {f)T t [ti/xi,...,t n /x n ], 
where Fv{jt) = {f,xi, ...,x n } and t\, ...,t n are A-terms which depend on 9 t . 

2) If D = E, we say that T is a storage operator for the type D. 

Examples The type of recursive integers is the formula : 

N r [x] = fiNx$(N,x) <x> 

where 

&(N,x) = VX{\/y(Ny -» Xsy),X0 -» Ii} 

(s is a unary function symbol for successor and is a constant symbol for zero). 

For each integer n, we define the recursive integer n by induction : = XfXxx and n + 1 = 

XfXx(f)n. Let iV be the set of recursive integers. 

We have N = {t / t is a closed normal A-term / \~ttr t : N r [s n {0)], n > 0} (see [19]). 

Let s = Xn\f\x(f)n. It is easy to check that s is a A-term for successor, and \~ttr s : 

Vy(i\T[y] ^iV r [sy]). 

Define 

Ti = (Y)H where # = AxAy((y)Az(G)(x)z)<5, G = XxXy(x)Xz(y)(s)z, and <5 = A/(/)0 ; 

T2 = Xv(y)prp where r = AeZA/(/)0, and p = XyXz(G)(y)zrz, 

then, for every 9 n ~p n, (T^f y (f)(s) n (i = 1,2). 

Therefore, for every n > 0, T\ and T2 are storage operators for N r [s n (0)]. 

Typing of T x 

We use in the typing the Gddel transformation with Vx = {X}, and Fx = ->X(xi, ...,x n ) for 
every second order variable X of arity n. 

• We have \~ttr : A^ r [0], then h T TR 6 : ^N r [0\. 

• We have h TTR s : \/y(N r [y] -> iV r [sy]), then 

x : AT r [y],y : -.TV [sj/], z : N r [y] h TTR (y)(s)z :± ; hence : 
x : -|-, TV T [y],y : -iTVfsy] I~tt_r (x)Az(y)(s)z :_L ; therefore : 
^TTR G : yy(^N r [y] -> TV [ay]). 
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• We have y : $*(/V, x) \~ttr V ■ Vy(Ny -»• ^N r [sy}), ^N r [0] -> ^X r [x] ; thus : 
x : Vx(Xx -» -.-.iV[a;]),i/ : $*(N,x),z : Ny h TTR {G){x)z : ^N r [sy] ; therefore : 
x : Vx(Nx -» ^iV r [x]),y : $*(/V,x) h TTH Az(G)(z)z : Vy(Xy -» -.-.J\T[sj/]) ; hence 

x : Vx(iVx -» — iV^x]) h TTR Ay((y)Az(G)(x)z)<5 : Vx($*(iV,x) -> ^N r [x]) ; therefore : 
h TTi? H : Vx(Xx -► -.-.iV r [x]) -► Vx($*(iV,x) -» -.-.iV[z]). 

And finally h TTR T x : Vx{X r *[x] -» ^X r [x]}. 
Typing of T 2 

We use in the typing the Godel transformation with Vx = {X, X'}, and 

Fx = X(x\, ...,x n ),X'(x\, ...,x n ) — >_L for every second order variable X of arity n. 

Let i? = VXVy{(X,X -> ^N r [0],X -► ^X r [y]),X -» -.-.jV r [sy]}, D = — iV r [0], and 

F[x] = -.-.TV^rr]. 

• I~tt_r A/(/)0 : — iV r [0] ; therefore : h TTR r : X -» -.-.i\T[0], and h T Tij r : i? -> i\T[0]. 

• By the previous typing, we have \~ttr G : Vy(-i-iiV r [y] — > -i-iA fr [sy]) ; hence : 

y : X,X -» iV r [0],X -» -.-.J\T[y],z : X h TTi? (G)(y)zTZ : ^N r [sy] ; therefore 

• Check that $*(AxF[x]/iV, x) C F[x\. 
$*(AxF[x]/iV,x) = 

VXVX'{Vy(F[y],Xsy, X'sy ->±), (XO, X'O ->±) -> (Ax, X'x -»±)} ; 
therefore by specifying Xx by i?, and X'x by -iA r [x] ; we obtain : 

$*(AxF[x]/X,x) C \/y(F[y},R,^N r [sy] ->±), {R, ^N r [0] ->±) -> (i?,^X r [x] We 
need to check that C Vy(F[y], i?, ^N r [sy] — >_!_), this is absolutely true. 

Therefore X r *[x] C F[x] and z/ : X r *[x] h TTR v: R,D,R-> ^N r [x] ; then : 

v : N r *[x] h TTR {v)prp : ^N r [x] ; and finally h TTR T 2 : Vx{X r *[x] -» — iV r [x]}. 

7.2 General Theorem 

Theorem 7.1 Let D, E be two ^-positive closed types ofTTR, such that _L does not appear in 
E. If \~ttr T : D* — > ->->E, then T is a storage operator for the pair (D,E). 

Proof It is a consequence from the following Theorem : 

Theorem 7.2 Let D,E be two V '-positive closed types ofTTR°, such that _L does noi appear in 
E. If \~ttr T : D* — > -i-iE, then T is a storage operator for the pair (D,E). 

Indeed: 
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Lemma 7.1 1) IfTe n + (resp. T e Q.~ ) then T° € VL + (resp. T° € n~). 

2) For each Godel transformation * ofTTR, there is a Godel transformation * ofTTR° such 

that : for every type D ofTTR, D*° = D° * . 

Proof 1) By induction on T. 

2) *' is the restiction of * on the types of TTR*. □ 

Let t be a normal A-term, such that \~ttr t : D. If \~ttr T : D*^> —i—iE, then, by The- 
orem 3.3, \-ttf? T : D*° — > -i-F°. By 2)-Lemma 7.1, there is a Godel transformation 
*', such that \~ttr° T : D°*' — > -i-F°. Therefore, there are A-terms tj and r/, such that 
T t ~p t[, \~ttr° t[ : F°, and (T)tf y (f)T t [h/xi, t n /x n }. By 2)-Corollary 6.1, we have 
h TTR t : D*, then / : ->E h TTR (T)tf :±, and / : ->E h TTR (/)r t [ti/xi, ...,t n /x n ] :J_. Therefore 
/ : -<E \~ttr (/)r/ :_L, and, by Corollary 4.1, \- TTR t[ : E. □ 

We give the proof of Theorem 7.2 in a particular case. 

Let N r = fiN[yX{N -> X,X -> X}], and * the Godel transformation with V* = {X}, and 

Fx = ^X(x\, ...,x n ) for every second order variable X of arity n. 

We will prove that : If \~ttr? T : N r *^> -i-iiV r , then T is a storage operator for N r . 

Because of : if t is a closed normal A-term with \-ttr° t : N r , then t = n for a certain integer 

n, and it is suffies to prove that : If \~ttr* T : N r *^ ->-'N r , then, for every n > 0, there is an 

m > and r 2±g m, such that, for every A-term 9 n 2±g n, there is a substitution cr, such that 

(T)(9 n / ~ (/Mr). 

Lemma 7.2 If V = T,x : N r *\-ttr° (x)ui...u n :_L, £/ien n = 3, and there is a type G, such 
that V \~ttr° ui '■ N r *— > ->G, V \~ttr° u 2 : ->G, and V ^ttr« G. 

Proof By Corollary 4.1, we have Vv iV r *C A-y -» S 1} Vvi-Bj C -» £ m 1 < i < n - 1, 

Vv n B n C_L, vo,...,v n are not free in A^ r * and T, and P Ktt.ro Ui : A\ 1 < i < n. Since 
Vv iV r *C A x -> Si, then, by Theorem 4.1, there is a formula F, such that Ai C N r *^ ->F 
and -iF — > -F C Si. We have also VviBi C A 2 -» B 2 , then Vv x (^F -» -.F) C A 2 -► B 2 , 
and, by Theorem 4.1, there is a sequence of formulas Fi, such that A 2 C ~F[Fi/vi] and 
-■F[Fi/vi]C B 2 . Now, since Vv 2 B 2 B 3 , we have Vv 2 (-F[Fi/vi]) B 3 , and, by 

Theorem 4.1, there is a sequence of formulas F 2 , such that A3 C F[Fi/vi, F 2 /v 2 ] and _LC F3. 
By Corollary 4.1, we have n = 3. Let G = F[Fi/vi, F 2 /v 2 ]. Since vi,v 2 are not free in N r * 
and T, we deduce V \~ttr° ui ■ N r *^> ->G, V \~ttro ^2 : "'G, and P* \~ttr° u% : G. □ 

Let n > 0. 
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Definition An n-special application 6 is a function from {0,1,..., n) to A with the following 
properties : 6(0) >- and 6(m + 1) >- Xf m Xx m (f m )6(m) < m < n — 1. 

Lemma 7.3 For every 6 n ~^ n, there is an n-special application 6, such that 6(n) = 6 n . 

Proof Easy. □ 

Definitions 

1) Let < m < n and u= u m ,i, u m ,2, Um,3, Un-i,i, Un-1,2, ^n-i,3 a sequence of A-terms. We 
denoted by x mjU a constant which does not appear in u. 

2) Let 6 be an n-special application. The n-special substitution Sg is the function on the set A 
defined by induction : 

- If u = x, then Sg(x) = x ; 

- If u = Xxv, then Sg(u) = XySe(v[y/x]) where y ^ Fv(6(n)) ; 

- If u = (v)w, then Sg(u) = (Sg(v))Sg(w) ; 

- If u = x mjU ,then 

S e (u) = 6(m)[Se(u m: i)/ f m ,Se(u m:2 )/x m , Se(un-i,i)//n-i, Se(u n - lj2 )/x n -i]. 
An n-special substitution is the application Sg associated to a some n-special application 6. 

Lemma 7.4 Let {Ui >- Vi}\<i< r be a sequence of head reductions such that : 

Vi = (x mjU )uiu 2 u 3 < m < n, [U i+1 = (ui)x m ^ Ul ^ U2>u .^ u uz if m ^ 0, and U i+1 = (u 2 )u 3 if 

m = 0], and Sg an n-special substitution. For every 1 < i < r, Sg(Ui) ~ Sg(Vi). 

Proof We argue by induction on i. 
The case i = is a consequence of Theorem 2.1. 
Assume that is true for i, and prove it for i + 
If Vi = (x mtU )u\u 2 U3 0< m < n, then 

Sg(Vi) = (6(m)[Sg(u mtl )/f m , Sg(u mt2 /)x m , Sg(u n - 1A )/ f n -!, S e (u n -^ 2 ) / x n -i}) 
Sg(ui)Sg(u 2 )Sg(u 3 ). 

- If m ^ 0, then 6(m) y \fm-i\x rn -i(f m -i)6(m - 1), 

and Sg(Vi) ~ (Sg(ui))6(m - l)[Sg(u m - 1;1 ) / f m -i, Se(u m -^ 2 )/x m -i, 
Se(u n -l,l)/ fn-l,Sg(u n -i, 2 )/x n -i])Sg(u2,) = Sg(U i+1 ). 

-Ifm = 0, then 6>(m) y XfXxx, and Sg(Vi) ~ (XfXxx)Sg(u 1 )Sg(u 2 )Sg(u 3 ) ~ (Sg(u 2 ))Sg(u 3 ) = 
Sg(U i+1 ). 
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By the induction hypothesis we have Sq(U±) ~ Sg(Vi), then Sg(U\) ~ S$(Ui+i), and, by Theo- 
rem 2.1, soim) ~s e (v i+1 ). □ 



Definition A context T = f : -<N,x njUo : N r *,x miiUl : N r *, ...,x msjUs : N r * where < mj < n, 
1 < j < s, is called n-good. 

Lemma 7.5 There is a sequence of head reductions {Ui >- Vi}\<i< r such that : 

- Ui = (T)x n f and V r = (/)r where r ~0 I for some I > ; 

- Vi = (x mjU )uiU2U3 < m < n, and 

f/i+i = 0i):cm-i,wi,w2,u3,u^3 if m / 0, and = (u 2 )u 3 if m = ; 

- For every 1 < i < r, there is an n-good context Tj such that Tj ^ttr^ Vi :_L. 

Proof Since h TTR . T : iV r *^ ^^iV r , then x n : N r *,f : h rTi? o (T)x n f :J_, and, by 

Corollary 4.3 and Lemma 7.2, we have (T)x n f y V\ where V± = (/)r or Vi = (x n )u\U2Us. 
Assume that we have the head reduction Uk >- Vk and Vk 7^ Then Vk = (x miU )ni«2«3 

< m < n, and, by the induction hypothesis, there is an n-good context Tk such that Tk \~ttr° 
(xm,u)uiU2U3 :_L. By Lemma 7.2, there is a type G, such that Tk ^ttr° u± : N r *^ -iG, 
Tfc \~ttr° u 2 : ->G, and T fc ^ttr° u 3 : G. 

- If m = 0, let = (n 2 )n 3 . Let r fc+1 = T fc . We have T fc+1 h TTR <, U k :_L. 

- If m ^ 0, let E7 fc+ i = (Mi)x m _i )tll)U2jU3)U it 3 . The variable x m _ liUuU2iU3:U is not used before. 
Indeed, if it is, by Lemma 7.4, the A-term (T)nf is not solvable. That is impossible because 
/ : -.AT \~ttr° (T)nf :±. Therefore T k+ i = T k , x m _i )UliU2iM3iU : N r * is an n-good context 
and T fc+ i \~ttro Uk+i :L. 

By Corollary 4.3 and Lemma 7.2, we have Uk+i >- Vk+i where Vk+\ = (/)r or Vk+i = 
(x StV )viv 2 v 3 < s < n. 

This constraction always terminates. Indeed, if not, by Lemma 7.4, the A-term {T)nf is not 
solvable. That is impossible because / : —>N r ^ttr^ (T)nf :L. 

Therefore there is r > and an n-good context T r such that V r = (/)r and T r ^ttr° V r : -L. By 
Lemma 6.2, we have r c±g I for some I > 0. □ 

Let 9 n be a A-term such that 6 n ~^ n. By Lemma 7.3, let 9 be an n-special application such 
that 9{n) = 9 n . Let the n-special substitution associated to 9. By Lemma 7.4, we have for 
every 1 < i < r, {T)9 n f ~ S e (V). In particular, for % = n, (T)6 n f ~ 5 fl ((/)r) = (/)^(r). Then 
T is a storage operator for N r . □ 
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